home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh25.d64 / listing 16 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  754b  |  40 lines

  1. 100 REM AUTO-'&'-MAKER
  2. 110 REM --------------
  3. 120 REM
  4. 130 REM  03.11.84.  BORIS SCHNEIDER
  5. 140 :
  6. 150 :
  7. 160 REM INITIALISIERUNG
  8. 170 INPUT"STARTADRESSE DES &-FILES";SA
  9. 180 INPUT"NAME DES &-FILES";NA$
  10. 190 IF LEN(NA$)>15 THEN 180NA$
  11. 200 OPEN1,8,2,"&"+NA$+",U,W"
  12. 210 DIMX(256)
  13. 220 PRINT"BITTE GEBEN SIE JETZT IHRE DATEN EIN"
  14. 230 PRINT"ABSCHLUSS MIT -1!"
  15. 240 :
  16. 250 REM DATENEINGABE UND TEST AUF
  17. 260 REM UEBERLAUF
  18. 270 Y=1
  19. 280 INPUTX(Y)
  20. 290 IFX(Y)<0THENY=Y-1:GOTO 350
  21. 300 PR=PR+X(Y):IFPR>255THEN PR=PR-255
  22. 305 Y=Y+1:IFY>254 THEN 350
  23. 310 GOTO 280
  24. 320 :
  25. 330 REM ABSPEICHERN DER VORHANDENEN
  26. 340 REM DATEN IN DAS USR-FILE
  27. 350 SH=INT(SA/256)
  28. 360 SL=SA-256*SH
  29. 370 PR=PR+SH+SL+Y
  30. 380 PRINT#1,CHR$(SL);CHR$(SH);
  31. 390 PRINT#1,CHR$(Y);
  32. 400 FORI=1TOY
  33. 410 PRINT#1,CHR$(X(I));
  34. 420 NEXT
  35. 430 PR=PR-(255*INT(PR/256))
  36. 440 PRINT#1,CHR$(PR);
  37. 450 IF X(Y+1)<0THENGOTO470
  38. 460 SA=SA+Y:PR=0:GOTO270
  39. 470 CLOSE1
  40.